home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
programs
/
swift45i.zip
/
NODELIST.Q-A
< prev
next >
Wrap
Text File
|
1992-06-11
|
861b
|
50 lines
Clearscreen
PostInfo
Variable 15 Net
Variable 10 Node
Variable 20 Name
Variable 41 City
Variable 40 Phone
GetFile QNL_DAT.BBS
Display "|" User
Display "|" Sysop
Display "|" System
Display "|Nodelist Entries are:|"
Repeat 200 times
SkipBytes 3
ReadNum Net
ReadNum Node
SkipBytes 1
Read Name
SkipBytes 1
Read City
Read Phone
SkipBytes 15
Display "|"
TabDisplay 1 Net
Display "/"
TabDisplay 5 Node
TabDisplay 25 Name
Rem Display "| "
TabDisplay 20 City
TabDisplay 15 Phone
EndRepeat
Quit
typedef struct noderecord {
unsigned char nodetype;
unsigned int zone,net,node;
unsigned char name[21];
unsigned char city[41];
unsigned char phone[41];
unsigned char password[9];
unsigned int flags;
unsigned int baudrate;
unsigned int cost;
} NODE;
Display "past Quit signal"
SetFlag C6 OFF